home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / axcool / axbutton.bas < prev    next >
BASIC Source File  |  1998-10-26  |  1KB  |  33 lines
  1. Attribute VB_Name = "modButton"
  2. Option Explicit
  3.  
  4. Public Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
  5.  
  6. 'Public Const DFC_BUTTON = 4
  7. 'Public Const DFC_MENU = 2
  8. 'Public Const DFC_CAPTION = 1
  9. 'Public Const DFC_SCROLL = 3
  10. 'Public Const DFCS_BUTTON3STATE = &H8
  11. 'Public Const DFCS_BUTTONCHECK = &H0
  12. 'Public Const DFCS_BUTTONPUSH = &H10
  13. 'Public Const DFCS_PUSHED = &H200
  14. 'Public Const DFCS_FLAT = &H4000
  15. 'Public Const DFCS_SCROLLDOWN = &H1
  16. 'Public Declare Function DrawFrameControl Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Long
  17.  
  18. Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
  19. Public Const DT_BOTTOM = &H8
  20. Public Const DT_CENTER = &H1
  21. Public Const DT_SINGLELINE = &H20
  22. Public Const DT_VCENTER = &H4
  23. Public Const DT_CALCRECT = &H400
  24.  
  25. Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  26. Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  27. 'Public Type POINTAPI
  28. '        x As Long
  29. '        y As Long
  30. 'End Type
  31. Public Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" ( _
  32.     pDest As Any, pSource As Any, ByVal ByteLen As Long)
  33.